← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:27 2013

Filename(eval 31)[/usr/share/perl5/JSON.pm:319]
StatementsExecuted 3 statements in 24µs
Eval Invoked At/usr/share/perl5/JSON.pm line 319
Sibling evals1, 2
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11122µs72µsJSON::XS::Boolean::::BEGIN@3JSON::XS::Boolean::BEGIN@3
0000s0sJSON::XS::Boolean::::__ANON__[:13]JSON::XS::Boolean::__ANON__[:13]
0000s0sJSON::XS::Boolean::::__ANON__[:4]JSON::XS::Boolean::__ANON__[:4]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
2 package JSON::XS::Boolean;
3
# spent 72µs (22+50) within JSON::XS::Boolean::BEGIN@3 which was called: # once (22µs+50µs) by JSON::Boolean::_overrride_overload at line 14
use overload (
4 '""' => sub { ${$_[0]} == 1 ? 'true' : 'false' },
5 'eq' => sub {
6 my ($obj, $op) = ref ($_[0]) ? ($_[0], $_[1]) : ($_[1], $_[0]);
7 if ($op eq 'true' or $op eq 'false') {
8 return "$obj" eq 'true' ? 'true' eq $op : 'false' eq $op;
9 }
10 else {
11 return $obj ? 1 == $op : 0 == $op;
12 }
13 },
14324µs2122µs );
# spent 72µs making 1 call to JSON::XS::Boolean::BEGIN@3 # spent 50µs making 1 call to overload::import
15
16;